#!/usr/bin/perl

use warnings;
use File::Find;

my $dstDir = $ARGV[0];
print "Will operate on " . $dstDir . "\n";

find(\&wanted, $dstDir);

sub wanted{
	# $File::Find::dir  is the current directory name,
	# $_ is the current filename within that directory
	# $File::Find::name is the complete pathname to the file. 
	print "full path is $File::Find::name, filename is $_\n";
}


This is from Src dire.